home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / xeno / bbbbscd.lha / BBBBScd / System / s / bbsExtKill.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-18  |  840b  |  31 lines
  1. /*       $VER: 9.0 bbsExtKill.rexx 10 Mar 1995 (10.3.95)
  2.  
  3. ****************************************************************************
  4. FOR XENOLINK PRO BBS. $VERS:1.0 (18.03.95) by Derek Scott,2:259/75
  5. ****************************************************************************
  6.  
  7. Deletes All Files/ & Email/ for user in doors:bbbbsCD/
  8.  
  9. */
  10. /* read the configuration parameters from XCONFIG:BBBBScd.CFG */
  11. x=OPEN(f,'xconfig:BBBBScd.config','R')
  12. IF x~=0 THEN 
  13.   DO
  14.     bbspath=READLN(f)
  15.     CALL CLOSE(f)
  16.   END
  17. ELSE
  18.     bbspath='doors:bbbbsCD/' 
  19. /*************************************************************************/
  20.  
  21.  
  22. LF='0A'x
  23. PARSE ARG name
  24. PRINT 'Deleting Archive Files...'
  25. ADDRESS COMMAND 'c:delete 'bbspath'files/'name'#?'
  26. PRINT 'Deleting Email Logs...'
  27. ADDRESS COMMAND 'c:delete 'bbspath'email/'name'#?'
  28.  
  29. EXIT
  30. /* bbsExtKill.rexx */
  31.